home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
MailerInfo.zprx
< prev
next >
Wrap
Text File
|
1995-01-05
|
7KB
|
297 lines
/* $VER: MailerInfo.zp V2.0 (1.1.95) C Albert Weinert
<a.weinert@darkness.gun.de>
Ein ARexx Programm für Statistikfans.
Dieses Programm durchsucht die Nachrichten nach einem
Mailereintrag und zählt die Anzahl der Nachrichten die
mit einen Mailer (Point-Programm) geschrieben wurden.
Anschließend wird einem Auskunft darüber gegeben.
Wenn das Programm in der Nachrichtübersicht gestartet
wird, dann werden die Nachrichten aus dem aktuellen
Brett genommen.
Sollte sich Zodiac's Point beim Programmstart in
der Brettübersicht befinden dann werden aus allen
Brettern die Nachrichten durchsucht (Spoolbrett und
Nachrichtenarchive allerdings nicht).
Für dieses Programm wird mindestens Zodiac's Point V3,7
benötigt.
Das Programm muss unbedingt auf eine F-Taste gelegt
werden. Sonst klappt es mit der Port-Adresse nicht.
*/
OPTIONS RESULTS
PARSE ARG name typ
ADDRESS VALUE name
UPPER typ
NUMERIC DIGITS 3
mailer.0.c = 0;
mailer.0.n = "eigene Nachrichten";
mailer.0.id = "EIGEN"
mailer.1.c = 0;
mailer.1.n = "MicroDot";
mailer.1.id = "Micro";
mailer.2.c = 0;
mailer.2.n = "CrossPoint";
mailer.2.id = "Cross";
mailer.3.c = 0;
mailer.3.n = "The Spot";
mailer.3.id = "Spot,";
mailer.4.c = 0;
mailer.4.n = "The Answer";
mailer.4.id = "-- Th";
mailer.5.c = 0;
mailer.5.n = "Zodiac's Point";
mailer.5.id = "Zodia";
mailer.6.c = 0;
mailer.6.n = "April V1.0";
mailer.6.id = "April"
mailer.7.c = 0;
mailer.7.n = "AmBoS-ZConnect";
mailer.7.id = "AmBoS"
mailer.8.c = 0;
mailer.8.n = "Zerberus";
mailer.8.id = "ZERBE"
mailer.9.c = 0;
mailer.9.n = "Junior Convert";
mailer.9.id = "Junio"
mailer.10.c = 0;
mailer.10.n = "UMS mit UMSzer";
mailer.10.id = "UMSZe"
mailer.11.c = 0;
mailer.11.n = "NCBMail Dos-Version";
mailer.11.id = "DOS/N"
mailer.12.c = 0;
mailer.12.n = "Edgar Mailboxsystem";
mailer.12.id = "Edgar"
mailer.13.c = 0;
mailer.13.n = "Netcall3.8 Point via DOS/NCBMail-NC";
mailer.13.id = "Netca"
mailer.14.c = 0;
mailer.14.n = "Prometheus";
mailer.14.id = "Prome"
mailer.15.c = 0;
mailer.15.n = "Arn";
mailer.15.id = "Arn V";
mailer.16.c = 0;
mailer.16.n = "TIN für UNIX";
mailer.16.id = "TIN [";
mailer.17.c = 0;
mailer.17.n = "WAni-Point";
mailer.17.id = "WAni-";
mailer.18.c = 0;
mailer.18.n = "Phobos";
mailer.18.id = "Phobo";
mailer.19.c = 0;
mailer.19.n = "ANUBIS ZSamm";
mailer.19.id = "ANUBI";
mailer.20.c = 0;
mailer.20.n = "GRn 2.x";
mailer.20.id = "GRn 2";
mailer.21.c = 0;
mailer.21.n = "UPoint-'medium'";
mailer.21.id = "UPoin";
mailer.22.c = 0;
mailer.22.n = "LoraBBS-OS/2";
mailer.22.id = "LoraB";
mailer.23.c = 0;
mailer.23.n = "MUIrn.ums";
mailer.23.id = "MUIrn";
mailer.24.c = 0;
mailer.24.n = "xrn 7.xx";
mailer.24.id = "xrn 7";
mailer.25.c = 0;
mailer.25.n = "NN";
mailer.25.id = "NN ve";
mailer.26.c = 0;
mailer.26.n = "IntuiNews";
mailer.26.id = "Intui";
mailer.27.c = 0;
mailer.27.n = "Freedom of Maus";
mailer.27.id = "Freed";
mailer.28.c = 0;
mailer.28.n = "znews";
mailer.28.id = "znews";
mailer.29.c = 0;
mailer.29.n = "Read";
mailer.29.id = "Read ";
mailer.30.c = 0;
mailer.30.n = "XP v3.xx";
mailer.30.id = "XP v3";
mailer.31.c = 0;
mailer.31.n = "EM-Mailer";
mailer.31.id = "EM-Ma";
mailer.32.c = 0;
mailer.32.n = "Connectline";
mailer.32.id = "Conne";
mailer.33.c = 0;
mailer.33.n = "Amiga Electronic Mail (AmiElm)";
mailer.33.id = "//\\m";
mailer.34.c = 0;
mailer.34.n = "ELM";
mailer.34.id = "ELM [";
mailer.35.c = 0;
mailer.35.n = "AmiGate";
mailer.35.id = "AmiGa";
mailer.36.c = 0;
mailer.36.n = "MsgBase";
mailer.36.id = "!! Ms"
mailer.37.c = 0;
mailer.37.n = "AmNet(R)-ZConnect-Gateway";
mailer.37.id = "AmNet";
mailer.38.c = 0;
mailer.38.n = "CruxPunctus";
mailer.38.id = "CruxP";
mailer.39.c = 0;
mailer.39.n = "Turbo-TransZer";
mailer.39.id = "Turbo";
mailer.40.c = 0;
mailer.40.n = "CLNewsGate";
mailer.40.id = "CLNew";
mailer.41.c = 0;
mailer.41.n = "Trumpet for Windows";
mailer.41.id = "Trump";
mailer.42.c = 0;
mailer.42.n = "IBM NewsReader/2";
mailer.42.id = "IBM N";
mailer.43.c = 0;
mailer.43.n = "timEd/2";
mailer.43.id = "timEd";
mailer.44.c = 0;
mailer.44.n = "TRN 1.xx";
mailer.44.id = "TRN 1";
mailer.45.c = 0;
mailer.45.n = "WinVN";
mailer.45.id = "WinVN";
mailer.46.c = 0;
mailer.46.n = "Tin 1.x";
mailer.46.id = "Tin 1";
mailer.47.c = 0;
mailer.47.n = "Maximus";
mailer.47.id = "Maxim";
mailer.48.c = 0;
mailer.48.n = "uugate";
mailer.48.id = "uugat";
mailer.49.c = 0;
mailer.49.n = "infiMail";
mailer.49.id = "infiM";
/* Der Letze MailerEintrag muss ein Dummy Eintrag sein */
mailer.50.c = 0;
mailer.50.n = "Foo";
mailer.50.id = "Bar";
maxmailer = 50
mailer.un = 0; /* Zähler für unbekannte */
WHICHLEVEL
IF result = "BOARDMENU" THEN DO
COUNT ALL
boards = result
DO j = 3 TO boards
JUMPTOBOARD j
IF RC THEN DO
ENTERBOARD
CALL ScanBoard
BOARDMENU
END;
END;
CALL Calc
END;
ELSE
IF result = "BOARD" THEN DO
CALL ScanBoard
CALL Calc
END;
EXIT
ScanBoard:PROCEDURE EXPOSE mailer. maxmailer typ
WHICHLEVEL
IF result = "BOARD" THEN DO
JUMPTOMESSAGE 1
IF ~RC THEN RETURN
COUNT ALL
mess = result
DO h = 1 TO mess
MESSAGEINFO MAILER
thismailer = result
mail = LEFT( thismailer, 5 );
found = 0;
DO i = 0 FOR maxmailer;
IF mailer.i.id = mail THEN DO
mailer.i.c = mailer.i.c +1;
found = 1;
BREAK
END
END;
IF ~found THEN DO
IF typ = "SCAN" THEN DO
IF thismailer ~= "UNKNOWN" THEN
SAY "Programm: "||thismailer||", Id: "||mail;
END;
mailer.un = mailer.un + 1;
END;
DOWN
END
END;
RETURN
Calc:PROCEDURE EXPOSE mailer. maxmailer
gesamt = 0;
DO i = 0 TO maxmailer;
gesamt = gesamt + mailer.i.c;
END;
gesamt = gesamt+mailer.un;
SAY "Die Gesamte Anzahl der Nachrichten ist "||gesamt||", davon sind";
SAY ""
DO i = 0 TO maxmailer
IF mailer.i.c ~= "0" THEN
SAY mailer.i.c||" Nachrichten von BenutzerInnen die "||mailer.i.n||" benutzen,";
END;
IF mailer.un ~= "0" THEN DO
SAY "und "||mailer.un||" Nachrichten stammen von unbekannten"
SAY "Point-Programmen oder Z38 Benutzerinnen"
END
SAY ""
SAY "Dies alles in Prozenten ausgedrückt:"
SAY ""
DO i = 0 TO maxmailer
IF mailer.i.c ~= "0" THEN
SAY mailer.i.c/gesamt * 100||"% der Nachrichten von BenutzerInnen die "||mailer.i.n||" benutzen,";
END;
IF mailer.un ~= "0" THEN DO
SAY "und "||mailer.un/gesamt*100||"% der Nachrichten stammen von unbekannten"
SAY "Mailern oder Z38 Benutzerinnen"
END
PULL Bla
RETURN